home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / exercise / space01.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-01  |  1.2 KB  |  82 lines
  1. Rem Planet Travel
  2. Rem
  3. Rem Hey! You know the 
  4. Rem values that appear in
  5. Rem the manual?
  6. Rem THEY'RE WRONG!
  7. Rem This program has them 
  8. Rem entered correctly!
  9. Rem 
  10. Rem See SPACE02.BAS for 
  11. Rem another example
  12.  
  13. cls
  14. Print "You're traveling to another planet!"
  15. Print "We need to know how much you weigh: "
  16. input weight
  17. Print "Which planet will you be traveling to?"
  18. Print "Choose a number from the list:"
  19. Print "1. Mercury"
  20. Print "2. Mars"
  21. Print "3. Venus"
  22. Print "4. Earth"
  23. Print "5. Saturn"
  24. Print "6. Uranus"
  25. Print "7. Neptune"
  26. Print "8. Jupiter"
  27. Print "9. Pluto"
  28. input planet
  29.  
  30. if planet = 1 then 
  31. let modify = 0.06
  32. let planet$ = "Mercury"
  33. endif
  34.  
  35. if planet = 2 then
  36. let modify = 0.11
  37. let planet$ = "Mars"
  38. endif
  39.  
  40. if planet = 3 then 
  41. let modify = 0.81
  42. let planet$ = "Venus"
  43. endif
  44.  
  45. if planet = 4 then
  46. let modify = 1.00
  47. let planet$ = "earth"
  48. endif
  49.  
  50. if planet = 5 then
  51. let modify = 95.14
  52. let planet$ = "Saturn"
  53. endif
  54.  
  55. if planet = 6 then 
  56. let modify = 14.52
  57. let planet$ = "Uranus"
  58. endif
  59.  
  60. if planet = 7 then 
  61. let modify = 17.25
  62. let planet$ = "Neptune"
  63. endif
  64.  
  65. if planet = 8 then 
  66. let modify = 317.89
  67. let planet$ = "Jupiter"
  68. endif
  69.  
  70. if planet = 9 then
  71. let modify = 0.10
  72. let planet$ = "Pluto"
  73. endif
  74.  
  75. Print "Your weight on ";
  76. Print planet$;
  77. Print " is ";
  78. Print weight * modify
  79. end 
  80.  
  81.